WAUG HEADER BYTES 
by Mike R, Seavey 


St our December seeting Tom Manat 
demonstrated GORF, MASTER TYPE, and SNDOPER 
TROOPS #1, Eric Radius was presented with a 
"Gold Disk” award in recognition of his 
contribution ag our first HAUG Presidant. it 
was agreed WAUS would purchase disks and 
qake “swap disks” ta trade public doaain 
softnare with other aser groups such as HACE 
and ABACUS, Doug beaver used Visicale to 
give a treasurer’s report. we went ovr the 
function and isprovements to the Graphics 
Two Blow Tittle prograg, and a seaber’s 
survey was discussed, 

For our danuary 1993 seeting we will 
have dewonstrations of MINER  2049ER = and 
CASTLE WOLFENSTEIN, Dur prograp will be on 
input/output devices which use the ATARI 
gade ports. [f you have any special ATARI 
compatable 10 devices, or prograas that 
demonstrate them, please bring then to the 
gesting. He plan to have paddle controllers, 
driving controllers, keyboard contrajlers, 
non-ATART joysticks, and hose brew light 
pens, 

Tentative plans have also heen sade for 
our February and Harch aeeting. In February 
we will have a used software swap. Trade or 
sell purchased software you have outgrown to 
a fellow HAUG ooaber, Three rules we will 
insist upons 


1) Trade or Sail only Original 
nedias 


2) Include — the original 
instructions, 


3) Be sure the software boots and 
runs before you exchange it, 


IF possible we will arrange = @ 
Teleceeputing session on Epagusyrva, The 
Source, or a gisidar service for aur March 
1983 peeting. 


A RENINDER 


To get the aost out of your weabership, 
cose to aver mgeting you can, Check out the 
Library tages, newsletter folders, and 
disks, Jf you cansot sake the naxt seeting 
you should contact Ed Fletcher, HAUG 
Librarian, and arrange to drag off any itens 
you have chackad out prior to the seeting. 
With the nex agpbers wa now have Chere will 
be quite a degand for our Library iteas. 

HY} you have a special interest or 
ability reiating to ATARI computers or 
software be sure to speak up at the next 
geeting. There is agoad chance that a fellow 
RAUG aesber could either use your help or 
help you, and that’s shat its all about. 

Irying to be original can ba tough, | 
had the LIFEXP program 95 4 done when | 
found the HORE BASIC COMPUTER GANES had 
assentually the same thing. If you compare 
both you will see that the sage thing can 
often be dene with a different approach, Qur 
newsletter deadline hit betore the prograa 
was fully cleaned up, so as a chalienge } 

1} How would PILOT have helpeo? 

2) What is the difference between an 
"WN" and a “S* in the data statements? 

3) How could one ask about sacking and 
weight wore efficiant]y? 

4) When and ow would you avoid 
reasking about such things as happiness or 
were a person lives? 


SHAP DISK 


I} have a first possible “SWAP DISK‘ 
done, It contains an AUTORUN.SYS file that 
runs a simple MENU prograg. The aenu progras 
allows running only ef Basic programs, which 
is all both sides of the disk are craaned 
with, This sakes it a very safe disk for 
less experienced ATARI users to use without 
risk, We need a aenber to asseable sipilar 
disks froa our club library, Contact Ed or 
Hike if you want to help, 


HHO 15 PROTECTED? 
Ed Fletcher 

Software piracy and protection are 
favorite subjects for many publications and 
an obsession with anst uculd-be software 
publishers, Hho is pirated and who is 
protected was brought hose to ae on ey Adth 
birthday this week. Let ae tel! you the 
story and invite your coasents. 

T purchased Text Wizard long ago when 
it first case out and I have used for ay 
Engineering reports, personal business and 
the #AUB newsletters each aonth, I have 
received good support from Dataaoft and | 
have let everyone know it, I believe that 
this has seld a nuaber copies to other users 
and | ao glad. When I purchased it I was 
offered a back-up copy for a reasonable 
price and I purchased it. I was happy!! 

Those who read the HAUG newsletter will 
testify that ey speliing is worse than ay 
programing, So — have called and written 
DataSatt encouraging thea to provide soe 
form of HELP for people tike ae.(lf there 
are any others so bad.) Three or four aonths 
Boel] Bizard was announced and J have bugged 
the Tocal dealer, the distributors and 
DataSoft since then to buy one. Everyone 
knen 1 needed one, Even ay wife knew | 
wanted one and yesterday ay wife gave me one 
for ay birthday. | was delighted!! 

Ido not (if [ can avoid it) use any 
business software withowt a back-up, fy 
computer efforts ar# only slightly better 
than ay spalling and [ have been known to 
damage disks in strange ways} especially if 
they were necessary ta ay work and nat 
backed-up. Sp the first thing I did was fil] 
put the registration card and look for 
instructions on what | needed to do to 
obtain a back-up copy, I found the usual 
disctainer, the very very Haited adaission 
af responsibility for what they sold, but no 
aention of back-up support, Now reneaber 
this is a DataSoft product, a reliable 
company that 1 believe in, I was 
disappointed! ! 

Hhat can 1 do? What are ay options? 


1) I can and will go to the 
aanutacturer and voice my problee directly. 
Because ay experience with Datagoft has bean 
good I de expect snae reasonable response, 
This is ay preferred option?! 

2) I can change brands in the hope ‘hat 
they Will not iapase this problea on ae in 
the first place.{I’ve heard that their word 
processor is Letter perfect anyway.) Buty 1 
really have no reason to believe that the 
sane thing will not happen again as soon as 
| becege dependent upon their product. 

3) T'e not naive, } know that any house 
can broken into and any software can be 
copiad. However; I have no desire to spend 
ay tie mastering this art. 1 purchase 
software for ay personal use and I have a 
Yegal right to copy it for that purpose, 
However; if faa forced to spend tive and 
noney to do this ! will surely be teapted to 
look at ways to recover ay losses. 

So here I any old enough to know better 
and too young to stop trying, User groups 
are believed to be the hide-out for pirates? 
1 do not believe that there is 2h exthange 
af pirated software among HAUS saubers and 
often the use of a copy leads to the 
purchase of the progras, The increase in 
cost af Atari APX progrags that was 
associated with the introduction af 
protection’ wae about 27%, | assume (without 
reason} that this increase was ’at cost’, It 
was paid by 100% of the customers. Surely a 
7E saving does not balance a 274 increase in 
cost, Even if ay estisate is (000% off it 
does not break even let alone show a return 
an investaent. Increased protection has 
forced wany users who had no intention of 
piracy to become copy experts, Just raunt 
the nuaber of copy pragrags offered in the 
pase pagatines that condean piracy, Even 
though wany of these prograas are probably a 
rip-off, they indicate a narket — that 
protection has generated and which will be 

satisfied, no ane gains and ponay that would 
be spent on worthwhile products is wasted 
vhile supplier and custoper do a nowin 


battle. pg 4 


I’a not sure who the pirate is; the 
user who copied a program and gave it to a 
friend; the supplier who took my gold to 
provide road blocks in ay use of his 
product; the sagazine that advertised the 
prograa that is so heavy protected that it 
loads slow and the copy progras that does 
not really “copy anything’. [ do know that 
no one is protected. I am not Happy!! 


RESULTS of OPTION #1 


OK | exercised ay first option and J 
was disappoited. | called DataSoft and 
talked {o Garry. (He would not give ae his 
last nage.) He told m2 that Datadoft had 
received other calls with the same question 
but that they just had no policy to provide 
back-up copies of Spell Wizard. The 
conversation was short, | was told to call 
back in a gonth or #0, they may have a 
policy by that tige. | am mow looking into 
option two now, 


Tid Bits 


Everyone has heard that ATARI has been 
working on anew computer. Well it has been 
announced at last. A press release dated 15 
December 1982 - Sunnyvale CA - reported in 
the Deceaber issue of the Portland ACE 
newsletter- announced the ATARI 1200%L, 4K 
RAM built in, 4 user defined keys which can 
provide up to 12 functions and completely 
compatible with all ATARI software and 
peripherals. 14 graphic aodes are provided 
and of course player/missile, 4 voice 3.5 
active sound, strolling and screen blanking 
(for speed). A special HELP key can be used 
to check seaory, audio, visual and keyboard 
functions. In addition it can be definad and 
called in a program, One touch cursor 
control, 285 color spectrum and other 
extensions of the editing and graphic 
features, 

There are only 2 game ports for 
joysticks and paddles or numerical keypads, 
The keyboard can be switched fro US to 


European characters, 64K of ‘NON-alterable’ 
penory is reported (what aver that means), 

The price will be announced in January 
and is expected to be under $1000. Sorry | 
have no conferaation on reports that two 
CPUs are used, but to maintain campatability 
there aust be a 6&xx somewhere, 


NEW UTILITIES 


When it rains it pours, For sone tine 
we have been looking for a program that 
would List programs in a way that would wake 
it easy to read thes on the screen, edit 
thea and continue to the end of the prograa, 
Well within the jast aonth three such 
programs have coae along, LISTER from the 
January issue of COMPUTE, SLOWLIST from the 
Noveaber Portland newsletter, and LSTPACER 
which was put together from a couple of 
newsletters. All three of these are 
available on the latest Users disk #2, 

Also on disk #12 we have two progrags 
that wil] allow you to create a AUTORUN, SYS 
prograa that will BOOT BASIC prograas on 
start-up, AUTOMATE again from COMPUTE and 
RASICBOT fron the JERSEY ACB December 
nensletter. Of course J added a little here 
and there and invite others to do the sane. 
AUTOMATE allows you to give alaost any 
coamand on boot-up that you could give from 
the keyboard. You can LOAD a prograa and 
ENTER another with it and then RUN both of 
thee, BASICBOT allows you to RUN any BASIC 
prograa on BOQT-up. AUTOMATE is the sore 
powerful program, 


Yariable speed program L1STer 

Also froa the Portland ACE  Novesber 
neneletter comes a short program that allows 
you to control the speed a program lists to 
the screen, As you will note meaory 
locations 136,137 are used to find the first 
line of the prograe and the next location 
provides the line length, etc, etc. REM 
statenents are fairly complete and very good 
docusentation is available by checking out 
the PAC newsletter, 


Listing of DrSLOWLIST.LST 


0 REN #4 D:SLOWLIST.LST t8 Variable sp 
eed listing of programs. FROM POR 
TLAND ATARI CLUB NEWSLETTER NOY 8 
2, 

{2 *}fype G.L8T to List prograns. 3? 
"Hit $ to slow speed. "s? “Hit Ft 
0 list faster, ":L9T=32760sS70P 

32740 X2PEEK{134) +2549PEEK (137) sPOKE 7 
64, 25510250 

S27h1 UNSPEEK (XT +2560PEEK (N41) 3 (2K4PEE 
K(s+2)s TF LND32789 THEN STOP 

32762 LIST LNSFOR Tl#i 10 DeNEXT LTs]F 
PEEK(764)262 THEN D=D+20 

32763 IF PEEK(764)=56 THEN D=D-201F D 
<0 THEM D=0 

32764 POKE 764, 255:60T0 32761 


Listing of DsLIFEXP,LST 


10 REM Life Expectancy Estinator 

20 REM by Michael Seavey - JAN '83 

30 REM Waterloo Atari User’s Group 

40 REN 

50 REM ATARY 400/800-14XK-ATART BASIC 

40 REN 

70 REM See book LIFEGAIN by & Allen 

BO REN Also MORE BASIC GAKES by D Anl 

9) REM 

100 REN 

110 SOTO 9900:REM TO SPEED UP BASIC 

200 REN HAIN PROGRAK LOOP 

205 REN FRIST GET QUSTION AND EFFECTS 

210 FOR DASBO10 TO 8300 STEF 10 

230 READ QUES, T#, 06 

240 TF QUES< OR QUES>S THEN GOTO 270 

750 IF T$="S" THEN READ TAS, TBS,EA, EB: 
BOTO 300 

260 IF Té="W" THEN READ WA,MBSGOTO 300 

270 7 "DATA ERROR IN LINE ';DAsSTOP 

300 REN ASSEMBLE THE QESTION 

WO GOTO QUESHIO+310 

320 OSG="WHAT [5 YOUR *s60T0 400 

330 O66="00 YOU "6070 400 

340 OS6="ARE YOU "sBOTG 400 


tat dat wag WE ye 


ATARI | 


A Warner Conmnuacations Company (5) 


sy ge Pa dey Sit et 


ae ES 


te ccm ce car Pe cr a ae 


peoples Jae /abue HARDWARE 


420 LAPGATE ROAD WATERLOO, IOWA 50702 


SIE 


400 REM ASK THE QUESTION 

410 TRAP 2000:POSITION 1,10 

420 PRINT G5$;0$ 

500 REM GET THE ANSWER 

510 POSITION 1,14 

520 REM IF A TEXT ANSWER 

530 IF T64>"S" THEN GOTO 400 

540 INPUT AS 

545 AS=AS(1, 1) 

550 IF ASC>TAS AND ASCOTBS THEN GOTO 2 
000 

560 CHEAT (AS=TAS) tEBRIAS=TBS) sG0SUB 3 
QO0;REM UPDATE EX + GIVE FEEDBACK 

570 GOTO 1400:REM SPECIAL CHECKS 

BOO REM IF A NUMBER ANSWER 

440 TRAP 2000: INPUT NUM 

620 IF NUMCNA OR WUMNB THEN GOTO 2000 

1400 REM SPECIAL CHECKS 

1410 IF DA=8010 THEN AGE=NUN 

1420 IF DA=8020 THEN SEXS=A$ 

1430 IF DA=8130 THEN LIVS=A$ 

1440 IF DAS@300 THEN CHKS=A$ 

1500 GOSUB 2100:NEXT DA 

{510 REM FINAL QUESTIONS & AJUSTMENTS 

1520 CH=2¢(AGE>29) + (ABE }40)+(ABEDS0) + ( 
AGE}70) sG0SUB 3000 

1530 CH=2t(SEX$="F") ¢(CHKS="¥") sB0SUB 
3000 

1540 CH=2¢(SEX$="H") 8 (AGED40) €(CHKS="7 
"):B0SUB 3000 

1545 Ag=" " 

1550 IF AGE}45 THEN TRAP 1550:60SUB 21 
OOsPOSITION 1, 10:PRINT "ARE YOU E 
MPLOYED "sINPUT AS 

1560 IF AS(1,1)="Y" THEN CH=3sG0SUB 30 
00 

1570 IF AGE¢25 OR LIVG="¥" THEN GOTO 1 
600 

1580 TRAP 1580:G0SUB 2100sPOSITION 1,1 
OsPRINT "HOW MANY YEARS HAVE YOU 
LIVED ALONE SINCE AGE 25 "s INPUT 
NUM 

1590 CH=Q-(NUM>10) -(NUM>20)-(NUND30) -( 
NUM) 40) -(NUMDS0)-(NUMDOO) :BOSUB 3 
000 

1400 BOSUB 2100sPOSITION 2,8:PRINT "YO 


WR ESTIMATED LIFE EXPECTAWCY IS * 
yEX 

1610 2 9? "AVERAGE PERCENT OF PEOPLE T 
0 LIVE" 

1620 ? "TO A GIVEN AGE ARE SHOWN BELOW" 

1630 737 

1670 ? "AGE 60 65 70 75 80 85 90 
95°17 

1680 7 "MALE 1% 74645239 25 13 4 
0.1" 

1490 7 "FEMALE 4 85 80 70 o1 47 30 12 
4 

1700 REM CHECK FOR RERUN OR QUIT 

1705 POKE 33279,8 

1710 2+237" PRESS START TO RERUN 
"39:7" PRESS OPTION TO QUIT" 

1720 IF PEEK(53279)=6 THEN GOTO 9900 

1730 IF PEEK(53279)=3 THEN GOTO 1900 

1740 POKE 53279,8:60T0 1720 

1900 POKE 752,0:GRAPHICS O:CLR sEND 

2000 REM INPUT ERROR FIX 

2010 POSITION 0,103? "" 

2020 G0T0 400 

2100 REN CLEAR FOR NEXT QUESTION 

2410 POSITION 0,937 *" 

2120 RETURN 

3000 REM CHANGE ESTINATE + SOUND FEEDB 
ACK 

3010 EX=EX+CHs IF CH=O THEN RETURN 

3020 IF CHO THEN GOTO 3040 

3030 FOR Cl=0 TO CH-1 STEP 1sFOR W=18 
TO 0 STEP -2:SOUND 0,W85, 10, WsNEX 

T WiNEXT COsSOUND 0,0,0,0sRETURN 

3040 FOR CO=0 TO CH+i STEP -1:FOR W=8 
TO 18:SOUND 0,W212,10,WsNEXT WaNE 
XT CC:SOUND 0,0,0, 0; RETURN 

7000 POKE 752,0:END 

8000 REN DATA ON LIFE EXPECTANCY 

BOLO DATA 1,N,AGE, 1,130 

8020 DATA 1,8,SE1,H,F,-3,4 

8030 DATA 2,8,LIVE IN AN URBAN AREA WI 
TH OVER 2 MILLION PEOPLE, ¥,N,-2,0 

8040 DATA 2,5,LIVE IN A TOWN UNDER 100 
00 OR ON A FARN,Y,N,2,0 

8050 DATA 2,8,HAVE A GRANDPARENT WHO L 
IVED TO 85,¥,N,2,0 

8060 DATA 2,8,HAVE 4 GRANDPARENTS WHO 


LIVED TO 80,Y,M,2,0 
8070 DATA 2,8,HAVE A PARENT THAT DIED 
BEFORE 50 OF A STROKE OR HEART AT 
TACK, ¥,N,-4,0 
8080 DATA 2,8,HAVE A PARENT/SIBLING < 
50 WHO HAS CANCER/DIABETES SINCE 
YOUNG/OR A HEART CONDITION, ¥,N,~3 
0 
} 
8090 DATA 2,8,EARN OVER #50000 A YEAR, 
¥,N,-2,0 
8100 DATA 2,8,HAVE A COLLEGE DEGREE, Y, 
N,1,0 
@110 DATA 2,8,HAVE A GRADUATE OR PROFE 
SSIONAL DEGREE, Y¥,N, 2,0 
9120 DATA 2,8,WORK BEHIND A DESK,Y,N,- 
3,0 
Bi30 DATA 2,$,LIVE WITH A SPOUSE OR FR 
IEND, ¥,N,5, 0 
8140 DATA 2,8,00 WORK WHICH REQUIRES H 
EAVY PHYSICAL LABOR, Y,N,3,0 
B150 DATA 2,5,EXERCISE STRENUOUSLY TWO 
OR THREE TINES EVERY WEEK, Y,N, 2,0 
@140 DATA 2,8,EXERCISE STRENUOUSLY FIV 
E TIME A WEEK FOR AT LEAST A HALF 
“HOUR, Y,N, 2,0 | 
8170 DATA 2,8,SLEEP MORE THAN 10 HOURS 
EACH NIGHT,Y,N,-4,0 
8180 DATA 3,$,INTENSE- AGBRESSIVE- OR 
EASILY ANGERED, Y,N,~3,0 
8190 DATA 3,$,EASYGOINS AND RELAXED, Y, 
N,3,0 
8200 DATA 3,,HAPPY,Y,N, 1,0 
8210 DATA 3,8, UNHAPPY, Y,N,~2,0 
8220 DATA 2,8,HAVE A SPEEDING TICKET Y 
OU SOT IN THE LAST YEAR,Y,N,-1,0 
B230 DATA 2,S,SMOKE MORE THAN 2 PACKS 
A DAY, Y,N,-6,0 
8240 DATA 2,8,SNOKE 1 TO 2 PACKS A DAY 
FY¥)N,-by0 
@250 DATA 2,8,SMOKE 1/2 TO 1 PACK A DA 
¥,¥yN,-3,0 
8260 DATA 2,8, DRINK THE EQUIVALENT OF 
1.5 OZ. OF ALCOHOL A DAY,Y,N,-1,0 
8270 DATA 3,9,0VERMEIGHT BY 50 LB. OR 
HORE, ¥,N,-8,0 
@280 DATA 3,S,QVERWEIGHT BY 30 TO 50 L 
B. 5 ¥,My—4y0 
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8290 DATA 3,5,0VERWEIGHT BY 10 TO 30 L 
B., ¥yNp-2,0 

8300 DATA 2,5,GET A ANNUAL PHYSICAL OR 
BYNECOLIGICAL CHECKUP, Y,N, 0,0 

9100 REN CLEAR QUESTIONS & ANSWERS 

9110 ANIL,5)=" 

9120 Oe" "30811201 =06:06(2)=08 

9130 05$=08(1,13) 

9140 RETURN 

9200 REN CLEAR SCREEN & DISP TITL 

9210 7 "}":POKE 752, 1:POSITION 4,1? * 
LIFE EXPECTANCY ESTIMATOR" 

9220 SETCOLOR 2,0, 0:RETURN 

9900 REM INITIAL SETUP 

9910 CLR :DIM T#{1),Q8(120), TAS(L) , TBS 
(1), A8 (30), O58(13),SEXS(4) , CHKOLL 
1 ,LIVeCd) 

9920 EX=72;SEX8="":CHKS="" 

9930 SNSUB 9200:REM CLEAR & TITLE 

9940 GDGUB 9100:REM CLEAR QUES & ANS 

9950 SOT 200:REM MAIN PROB | ODP 


Listing of DsLISTER.LST 


32700 CLA DIM AS(5):T=0:2=0 

32705 INPUT AG:ON (AS="EDIT")+(A$="ERA 
SE")82 GOTD 32730, 32745 

32710 ? CHRE(125)sADDR=PEEK (134) +2560P 
EEK(137)4FOR Xs0 TO TrADDR=ADDR+P 
EEK (ADDR+2) $(1)0) NEXT X 

32715 LINENO=PEEK (ADDR) #PEEK (ADDR+1) 82 
Sh T=tis1F LINENO2=32700 THEN ? 
+7 "4 EMD OF LISTING @":T=03 20:6 
OTd 32705 

32720 LIST LINENO: T=T+1 :ADDR=ADDR+PEEK 
(ADDR+2)31F 146 THEN 32715 

32725 1=0:6070 32705 

32730 7 “WHAT LINE # ";:INPUT X 

32735 2 CHRS(A25);POSITION 2,4sL18T 3%: 
937 "CONTI INPUT ASSPOSITION 2,0 
sPOKE 042, 13:STOP 

32740 POKE 842, 12:T=1-6:G070 32705 

32745 7 CHRO(125):POSITION 2,4:FOR K=3 
2700 TO 32755 STEP 53? SeMEXT Xs? 

"POKE 842, 12:6R.0" 
32750 POSITION 2,0:POKE 842,13: STOP 
32755 REM from COMPUTE #32 Jan 83 ppl9i 


"ABA BS 
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PUBLICATION POLICY 

The WAUG News Letter will be published 
once aach month except August and December. 
It is distributed to WAUB Meabers and to 
other ATARI USERS groups who join WAUG or 
provide copies of their News Letters, 

Members of WAUG may place three line 
adds(150 characters) of a noncommercial 
nature free of charge. 

Commercial advertisements will be 
accepted at the rate of $1.00 per column 
centigeter (150 characters). Half page adds 
will be run for $19.00 per issue or three 
issues for $25.00, 

Send copy {and check) to WAUB 4229 
Suburban Drive, Waterloo [A 50702. 


WATERLOO ATARI USER’S GROUP 
OFFICERS 


PRES... Mike Seavey 235 9292 
SEC....Ed Fletcher 276 1607 
EDITOR. dohn Fisher 232 4890 
TREAS..Doug Weaver 438 4221 


ANNUAL DUES are $10.00. Membership 
includes a subscription to the Club news 
letter and use of the Club library. 

WAUG meets the fourth Sunday of each 


- wonth, except Deceaber, 


THIS GROUP IS NOT IN ANY WAY AFFILIATED 


. | WITH THE ATARI COMPANY, 
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